The Programmer Disk/The Programmer Disk (Microforum).iso/xpro/basic3/pro5/trigfunc.bas

GW-BASIC | 1990-06-20 | 4.7 KB | 112 lines

10  CLS:KEY OFF
20  LOCATE 7,18:COLOR 9:PRINT"DEGREE TO TRIG FUNCTION CONVERTER":COLOR 5
30  LOCATE 10,21:PRINT" Enter [";:COLOR 1:PRINT"1";:COLOR 5:PRINT"] for sine of +
40  LOCATE 11,21:PRINT" Enter [";:COLOR 2:PRINT"2";:COLOR 5:PRINT"] for cosine of +
50  LOCATE 12,21:PRINT" Enter [";:COLOR 3:PRINT"3";:COLOR 5:PRINT"] for tangent of +
60  LOCATE 13,21:PRINT" Enter [";:COLOR 4:PRINT"4";:COLOR 5:PRINT"] for cosecant of +
70  LOCATE 14,21:PRINT" Enter [";:COLOR 8:PRINT"5";:COLOR 5:PRINT"] for secant of +
80  LOCATE 15,21:PRINT" Enter [";:COLOR 6:PRINT"6";:COLOR 5:PRINT"] for cotangent of +
90  LOCATE 16,21:PRINT" Enter [";:COLOR 7:PRINT"7";:COLOR 5:PRINT"] to save any changes
91  LOCATE 17,21:PRINT" Enter [";:COLOR 20:PRINT"8";:COLOR 5:PRINT"] to exit program
100  C$=INKEY$
110  C=VAL(C$)
120  ON C GOTO 140,260,380,500,640,760,880,980
130  GOTO 100
140  ' ================================================================
150  '                      Sine of + routine
160  ' ================================================================
170  CLS:COLOR 1:LOCATE 8,3:INPUT"What is the sine of ";A
180  X= SIN(A/57.3):S = X
190  GOSUB 1060
200  IF S < -50 OR S > 50 THEN GOSUB 1110
210  COLOR 15:LOCATE 10,3:PRINT"The sine of "A" is "S".":COLOR 5
220  LOCATE 12,3:PRINT"<G> For Another Conversion  <M> To Return to Menu"
230  SN$=INKEY$:IF SN$="G" OR SN$="g" THEN 170
240  IF SN$="M" OR SN$="m" THEN 10
250  GOTO 230
260  ' ====================================================================
270  '                       Cosine of + routine
280  ' ====================================================================
290  CLS:COLOR 2:LOCATE 8,3:INPUT"What is the cosine of ";A
300  X = COS(A/57.3):S = X
310  GOSUB 1060
320  IF S < -50 OR S > 50 THEN GOSUB 1110
330  COLOR 15:LOCATE 10,3:PRINT"The cosine of "A" is "S".":COLOR 5
340  LOCATE 12,3:PRINT"<G> For Another Conversion  <M> To Return to Menu"
350  OS$=INKEY$:IF OS$="G" OR OS$="g" THEN 290
360  IF OS$="M" OR OS$="m" THEN 10
370  GOTO 350
380  ' ====================================================================
390  '                       Tangent of + routine
400  ' =====================================================================
410  CLS:COLOR 3:LOCATE 8,3:INPUT"What is the tangent (tan) of ";A
420  X = TAN(A/57.3):S = X
430  GOSUB 1060
440  IF S < -50 OR S > 50 THEN GOSUB 1110
450  COLOR 15:LOCATE 10,3:PRINT"The tangent of "A" is "S".":COLOR 5
460  LOCATE 12,3:PRINT"Press [T] for another Conversion   [R] to Return to menu"
470  TN$=INKEY$:IF TN$="T" OR TN$="t" THEN 410
480  IF TN$="R" OR TN$="r" THEN 10
490  GOTO 470
500  ' =======================================================================
510  '                      Cosecant of + routine
520  ' =======================================================================
530  CLS:COLOR 4:LOCATE 8,3:INPUT"What is the cosecant [1/sin] of ";A
540  X = 1/SIN(A/57.3): S=X
550  GOSUB 1060
560  IF S < -50 OR S > 50 THEN GOSUB 1110
570  COLOR 15:LOCATE 10,3:PRINT"The cosecant (csc) of "A" is "S".":COLOR 5
580  LOCATE 12,3:PRINT"ENTER (1) FOR ANOTHER CONVERSION   (2) TO RETURN TO MENU"
590  CS$=INKEY$
600  CS = VAL(CS$)
610  IF CS = 1 THEN 530
620  IF CS = 2 THEN 10
630  GOTO 590
640  ' ========================================================================
650  '                        secant of + routine
660  ' ========================================================================
670  CLS:COLOR 8:LOCATE 8,3:INPUT"What is the secant (1/cos) of ";A
680  X = 1/COS(A/57.3): S=X
690  GOSUB 1060
700  IF S < -50 OR S > 50 THEN GOSUB 1110
710  COLOR 15:LOCATE 10,3:PRINT"The secant (sec) of "A" is "S".":COLOR 5
720  LOCATE 12,3:PRINT"Press (G) for another degree to secant conversion  (M) to return to menu."
730  SEC$=INKEY$:IF SEC$="G" OR SEC$="g" THEN 670
740  IF SEC$="M" OR SEC$="m" THEN 10
750  GOTO 730
760  ' ========================================================================
770  '                         cotangent of + routine
780  ' ========================================================================
790  CLS:COLOR 6:LOCATE 8,3:INPUT"What is the cotangent (1/tan) of ";A
800  X = 1/TAN(A/57.3): S=X
810  GOSUB 1060
820  IF S < -50 OR S > 50 THEN GOSUB 1110
830  COLOR 15:LOCATE 10,3:PRINT"The cotangent (cot) of "A" is "S".":COLOR 5
840  LOCATE 12,3:PRINT"Press (G) for another degree to cotangent conversion  (R) to Return to menu."
850  COT$=INKEY$:IF COT$="G" OR COT$="g" THEN 790
860  IF COT$="R" OR COT$="r" THEN 10
870  GOTO 850
880  ' ================================================================
890  '                   Save and Exit Routines
900  ' ================================================================
950  CLS:LOCATE 10,21:COLOR 7:PRINT"One moment while I save changes . . . "
960  LOCATE 18,52:COLOR 25:PRINT" . . . saving":COLOR 5
970  BEEP:SAVE"TRIGFUNC.BAS"
975  GOTO 10
980  CLS:COLOR 9:LOCATE 8,18:PRINT"Do you now wish to ";CHR$(34);"    ";CHR$(34);" this program?"
981  LOCATE 8,38:COLOR 18:PRINT"exit":COLOR 5
990  S$=INKEY$:IF S$="Y" OR S$ = "y" THEN 1020
1000  IF S$="N" OR S$ = "n" THEN 10
1010  GOTO 990
1020  CLS:RUN"files."
1030  ' ----------------------------------------------------------------
1040  '                Math Function Subroutine
1050  ' ----------------------------------------------------------------
1060  S = INT((X + 4.9999E-05)*10000)/10000
1070  RETURN
1080  ' --------------------------------------------------------------------
1090  '                8642.408 Function Call Notice
1100  ' --------------------------------------------------------------------
1110  BEEP:LOCATE 24,3:PRINT"This function is " ;:COLOR 31:PRINT"UNDEFINED";:COLOR 5:PRINT"."
1120  RETURN